//  
procedure ShowArray (var RqArray  : array of integer;
                         RqReport : TMemo);
var Ind : integer;
begin
  RqReport.Lines.Add('  :');
  for Ind := Low(RqArray) to High(RqArray) do
  begin
    RqReport.Lines.Add(IntToStr(RqArray[Ind]));
  end;
end; // of procedure